home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Super Stacks! / Macworld CD.iso / HyperCard Archives / International / French v1.2.5.1 / Base / background_2282.txt < prev    next >
Text File  |  1989-09-15  |  2KB  |  100 lines
  1. -- background: 2282 from stack: in
  2. -- bmap block id: 7069
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   show menuBar
  10.   pass openStack
  11. end openStack
  12. on closeCard
  13.   hide card field "Aide de base"
  14. end closeCard
  15.  
  16.  
  17.  
  18. -- part 6 (field)
  19. -- low flags: 00
  20. -- high flags: 0000
  21. -- rect: left=117 top=36 right=61 bottom=394
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 1
  25. -- font id: 20
  26. -- text size: 18
  27. -- style flags: 0
  28. -- line height: 24
  29. -- part name: 
  30.  
  31.  
  32. -- part 8 (button)
  33. -- low flags: 00
  34. -- high flags: 2000
  35. -- rect: left=256 top=298 right=321 bottom=281
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 1013 / 1013
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: 
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   if short name of this card = "Base" and the userlevel < 5 then
  47.     go to card "Pr√©f√©rences"
  48.   else
  49.     go next card
  50.   end if
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 9 (button)
  56. -- low flags: 00
  57. -- high flags: 2000
  58. -- rect: left=228 top=298 right=321 bottom=254
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 1014 / 1014
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   if short name of this card = "Pr√©f√©rences" and the userlevel < 5 then
  70.     go to card "Base"
  71.   else
  72.     go to prev card
  73.   end if
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 20 (button)
  79. -- low flags: 00
  80. -- high flags: 2000
  81. -- rect: left=15 top=28 right=62 bottom=49
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 2507 / 2507
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: 
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   if visible of card field "Aide de base" is true then
  93.     hide card field "Aide de base"
  94.   else
  95.     show card field "Aide de base"
  96.   end if
  97.  
  98. end mouseUp
  99.  
  100.